home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / windows / editprog / newvisda.arj / SORT.FRM < prev    next >
Text File  |  1994-04-01  |  3KB  |  129 lines
  1. VERSION 2.00
  2. Begin Form fSort 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Sort Records"
  6.    ClientHeight    =   2370
  7.    ClientLeft      =   3090
  8.    ClientTop       =   3120
  9.    ClientWidth     =   5070
  10.    ControlBox      =   0   'False
  11.    Height          =   2775
  12.    Left            =   3030
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2412
  17.    ScaleMode       =   0  'User
  18.    ScaleWidth      =   5160
  19.    Top             =   2775
  20.    Width           =   5190
  21.    Begin ListBox cFieldList 
  22.       BackColor       =   &H00FFFFFF&
  23.       Height          =   1395
  24.       Left            =   240
  25.       TabIndex        =   1
  26.       Tag             =   " OL"
  27.       Top             =   360
  28.       Width           =   1695
  29.    End
  30.    Begin CommandButton OkayButton 
  31.       Caption         =   "&OK"
  32.       Default         =   -1  'True
  33.       Enabled         =   0   'False
  34.       Height          =   372
  35.       Left            =   2340
  36.       TabIndex        =   3
  37.       Top             =   420
  38.       Width           =   1691
  39.    End
  40.    Begin CommandButton CancelButton 
  41.       Cancel          =   -1  'True
  42.       Caption         =   "&Cancel"
  43.       Height          =   372
  44.       Left            =   2340
  45.       TabIndex        =   0
  46.       Top             =   1320
  47.       Width           =   1691
  48.    End
  49.    Begin Label FieldListLabel 
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "Fields:"
  52.       Height          =   192
  53.       Left            =   240
  54.       TabIndex        =   2
  55.       Top             =   120
  56.       Width           =   1092
  57.    End
  58. End
  59. Option Explicit
  60. Dim FNotFound As Integer
  61.  
  62. Sub CancelButton_Click ()
  63.   Hide
  64.   'set the flag for the dynaset/dynagrid form
  65.   gfFindFailed = True
  66. End Sub
  67.  
  68. Sub cExpr_Change ()
  69.   If cFieldList <> "" Then
  70.     OkayButton.Enabled = True
  71.   Else
  72.     OkayButton.Enabled = False
  73.   End If
  74. End Sub
  75.  
  76. Sub cFieldList_Click ()
  77.   If cFieldList <> "" Then
  78.     OkayButton.Enabled = True
  79.   Else
  80.     OkayButton.Enabled = False
  81.   End If
  82. End Sub
  83.  
  84. Sub cOpsList_Click ()
  85.   If cFieldList <> "" Then
  86.     OkayButton.Enabled = True
  87.   Else
  88.     OkayButton.Enabled = False
  89.   End If
  90. End Sub
  91.  
  92. Sub Form_Paint ()
  93.   Outlines Me
  94. End Sub
  95.  
  96. Sub OkayButton_Click ()
  97.    Dim i As Integer
  98.  
  99.    On Error GoTo FindErr
  100.  
  101.   
  102.    FNotFound = False
  103.    SetHourGlass Me
  104.     SortStr = cFieldList
  105.    
  106.     i = InStr(1, SortStr, " ")
  107.         If i > 0 Then
  108.           SortStr = "[" + SortStr + "]"
  109.         End If
  110.  
  111.    
  112.    Hide
  113.    GoTo FindEnd
  114.  
  115. FindErr:
  116.    If Err <> EOF_ERR Then
  117.      ShowError
  118.      Resume FindEnd
  119.    Else
  120.      FNotFound = True
  121.      Resume Next
  122.    End If
  123.  
  124. FindEnd:
  125.    ResetMouse Me
  126.  
  127. End Sub
  128.  
  129.